﻿Namespace OpenArchive
    Namespace Collections


        Friend Class SystemFileCollection
            Inherits Dictionary(Of String, SystemFile)

            Public Const c_SystemfileSub As String = "SystemFiles"
            Public Sub New()
                ' Create Systemfiles Section in config

            End Sub

            Public Shadows Function add(ByVal Systemfile As SystemFile, ByVal content As Byte())
                Dim _dirsep As String = Global.System.IO.Path.DirectorySeparatorChar
                Dim _archsyssection As System.Configuration.ArchiveConfigurationSection
                Dim _StdLocation As String
                _archsyssection = System.ArchiveSystem.Settings.Sections(System.ArchiveSystem.c_ArchivConfigSectionName)

                If Not _archsyssection Is Nothing Then
                    _StdLocation = _archsyssection.Systemsettings(System.ArchiveSystem.c_StdLocation).Value

                    MyBase.Add(Systemfile.Name, Systemfile)
                End If

            End Function
        End Class

        Friend Class SystemFile
            Private m_Name As String
            Private m_OSFileName As String
            Private m_FileType As String
            Public Sub New(ByVal Name As String, ByVal Filename As String, ByVal FileType As String)
                m_Name = Name
                m_OSFileName = Filename
                m_FileType = FileType

            End Sub
            Public Property Name() As String
                Get
                    Return m_Name
                End Get
                Set(ByVal value As String)
                    m_Name = value
                End Set
            End Property
            Public Property OsFileName() As String
                Get
                    Return m_OSFileName
                End Get
                Set(ByVal value As String)
                    m_OSFileName = value
                End Set
            End Property
            Public Function GetContent() As Byte()

            End Function
        End Class

    End Namespace
End Namespace
